-module(echocorp_supervisor).
-behaviour(supervisor). 
-compile(export_all).

-export([init/1]).

start() ->
    spawn(fun() ->
                  supervisor:start_link({local, ?MODULE}, ?MODULE, _Arg = [])
          end).
			
start_in_shell_for_testing() ->
    {ok, Pid} = supervisor:start_link({local, ?MODULE}, ?MODULE, _Arg = []),
    unlink(Pid).
	
start_link(Args) ->
    supervisor:start_link(?MODULE, Args).
	
init([]) ->
    {ok, {{one_for_one, 3, 10}, 
          [{tag1, {simple_server, start_link, [2345]},
            permanent, 10000, worker, [simple_server]}
          ]}}.